home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2001 May / SGI IRIX Base Documentation 2001 May.iso / usr / share / catman / p_man / cat3 / f90 / random_seed.z / random_seed
Encoding:
Text File  |  1998-10-30  |  1.9 KB  |  46 lines
  1. RANDOM_SEED(3I)                                        Last changed: 1-6-98
  2.  
  3.  
  4. NNAAMMEE
  5.      RRAANNDDOOMM__SSEEEEDD - Restarts or queries the pseudorandom number generator
  6.  
  7. SSYYNNOOPPSSIISS
  8.      CCAALLLL RRAANNDDOOMM__SSEEEEDD (([[SSIIZZEE==]_s_i_z_e] [,,[PPUUTT==]_p_u_t] [,,[GGEETT==]_g_e_t]))
  9.  
  10. IIMMPPLLEEMMEENNTTAATTIIOONN
  11.      UNICOS, UNICOS/mk, and IRIX systems
  12.  
  13. SSTTAANNDDAARRDDSS
  14.      Fortran 90
  15.  
  16. DDEESSCCRRIIPPTTIIOONN
  17.      The RRAANNDDOOMM__SSEEEEDD intrinsic subroutine restarts or queries the
  18.      pseudorandom number generator used by RRAANNDDOOMM__NNUUMMBBEERR.  It accepts the
  19.      following arguments (note that there must be exactly one argument or
  20.      no arguments present):
  21.  
  22.      _s_i_z_e    Must be scalar and of type integer.  It is an output argument.
  23.              It is set to the number _N of integers that the processor uses
  24.              to hold the value of the seed.
  25.  
  26.      _p_u_t     Must be an integer array of rank one and _s_i_z_e >= _N.  It is an
  27.              input argument.  It is used to set the seed value.
  28.  
  29.      _g_e_t     Must be an integer array of rank one and _s_i_z_e >= _N.  It is an
  30.              output argument.  It is set to the current value of the seed.
  31.  
  32.      The name of this intrinsic cannot be passed as an argument.
  33.  
  34. EEXXAAMMPPLLEESS
  35.           CALL RANDOM_SEED                          ! initization of seed
  36.           CALL RANDOM_SEED(SIZE = K)                ! Sets K = N
  37.           CALL RANDOM_SEED(PUT = SEEDARRAY(1:K))    ! Set user seed
  38.           CALL RANDOM_SEED(GET = OLDSEED(1:K))      ! Get current seed
  39.  
  40. SSEEEE AALLSSOO
  41.      RRAANNDDOOMM__NNUUMMBBEERR(3I)
  42.  
  43.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-2138, for the
  44.      printed version of this man page.
  45.  
  46.